00100		TITLE INTFAC
00200		INTERNAL ARM.POSITION
00300		INTERNAL ARM.JOINT
00400		EXTERNAL ARM.VE
00500	
00600		P←17
00700		MASTER←←16657
00800	ARM.JOINT:MOVEI 
00900		SKIPA
01000	ARM.PO:	MOVEI 1
01100		HRLI MASTER
01200		MOVEM EXE
01300		CALLI 1,30
01400		MOVEM 1,SEGJOB
01500		JSR ISSERV
01600	SEN1:	SEND REQU
01700		JRST[		MOVEI 1,2
01800				CALLI 1,31
01900				JRST SEN1]
02000		WRCV EXE
02100		MOVE 1,ARM.VE
02200		MOVEI 2,6(1)
02300		HRLI 1,THETA
02400		BLT 1,(2)
02500		MOVE 1,STATUS
02600	RETN:	POPJ 17,
02700	
02800	REQU:	SIXBIT/$ARM$/
02900		EXE
03000	
     

00100	;	THIS IS THE 32 WORD MAIL MESSAGE
00200	
00300	EXE:	XWD MASTER,0	;18-27 NARGS, 30 RELOC, 31 HOLD, 32 SOTCH, 33-35 EXE
00400				;0 READ IN OCTAL
00500				;1 READ IN DECIMAL
00600				;2 EXECUTE FILE
00700				;3 EXECUTE FUNCTION
00800	FILE:	0
00900	PPPN:	0
01000	BAND:	0
01100	SEGJOB:	0
01200	NAME:	0
01300	STATUS:	0
01400	SEGMENT:0
01500	NERVES:	0
01600	ETOR:	0
01700	THETA:	0
01800	ARGS:	BLOCK =21
01900	
     

00100	ISSERV:	0
00200	SEE:	MOVE 1,[SIXBIT/$ARM$/]
00300		CALLI 1,400043
00400		JRST[	CAIE 1,1
00500			JRST[	OUTSTR[ASCIZ/THERE ARE TOO MANY SERVOS ALREADY
00600	PLEASE KILL THEM ALL BUT ONE AND TYPE RET
00700	/]
00800				INCHWL
00900				INCHWL
01000				JRST SEE]
01100			PTYGET 10
01200			JRST[	OUTSTR[ASCIZ/NO PTYS AVAILABLE
01300	/]
01400				CALLI 12]
01500			HRLI 10,0
01600			MOVEI 11,[ASCIZ/L
01700	/]
01800			PTWRS7 10
01900		WH:	PTRD1W 10
02000			CAIE 11,"#"
02100			JRST WH
02200			MOVEI 11,[ASCIZ/SYS,HE
02300	/]
02400			PTWRS7 10
02500		WCC:	PTRD1W 10
02600			CAIE 11,"↑"
02700			JRST WCC
02800			MOVEI 11,[ASCIZ/RUN ARM
02900	/]
03000			PTWRS7 10
03100		WCC2:	PTRD1W 10
03200			CAIE 11,"!"
03300			JRST WCC2
03400			JRST @ISSERV]
03500	GOTONE:	JRST @ISSERV
03600	
03700		END